Leonardo the Inventor/Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso/LEOWINMV/FORTGAME.DIR/00273_Script_Utility scripts

Text File | 1996-03-20 | 1KB | 43 lines

--------------------------------------

on makeCastList
  global theList
  put empty into theList
  repeat with C = 73 to 96
    put (the name of cast C)& return after theList
  end repeat
end makeCastList

on numberCast
  repeat with C = 73 to 96
    set the name of cast C to "R "&C - 72
  end repeat
end numberCast

on showKeyCode
  put the keyCode into field "keyCode"
  dontPassEvent
end showKeyCode

on recordSpots
  global theList
  put empty into theList
  when keydown then recordOne 14
end recordSpots

on recordOne whichSprite
  global theList
  put (the mouseH - the locH of sprite whichSprite)&& (the mouseV - the locV of sprite whichSprite)&return after theList
end recordOne

on doublePositions whichCast
  global destText
  set destText = " "
  set sourceText = the text of cast whichCast
  set numLines = the number of lines in sourceText
  repeat with L = 1 to numLines
    put line L of sourceText into line (L*2) -1 of destText
    put line L of sourceText into line (L*2)    of destText
  end repeat
  put destText
end doublePositions